Virtual Valerie 2/Virtual Valerie 2.iso/pc/data/self1/00038.ls

Text File | 1995-01-19 | 664 b | 34 lines

on exitFrame
  global HOLE, CHEEK, CHEEK2, TOUCH, SCORE
  set the constraint of sprite 10 to 11
  if sprite 10 intersects 8 then
    set CHEEK to CHEEK + 1
  end if
  if sprite 10 intersects 5 then
    set HOLE to HOLE + 1
  end if
  if sprite 10 intersects 9 then
    set CHEEK2 to CHEEK2 + 1
  end if
  if HOLE > 2 then
    set HOLE to 2
  end if
  if CHEEK > 2 then
    set CHEEK to 2
  end if
  if CHEEK2 > 2 then
    set CHEEK2 to 2
  end if
  set TOUCH to HOLE + CHEEK + CHEEK2
  if TOUCH > 5 then
    set TOUCH to 0
    set HOLE to 0
    set CHEEK to 0
    set CHEEK2 to 0
    set SCORE to SCORE + 1
    go(marker(1))
    PRINTSCORE()
    exit
  end if
end